<%@ LANGUAGE = VBScript.Encode CODEPAGE="936"%>
<%    
	Response.Addheader"Content-Type","text/html; charset=gb2312"
	dim conn,connstr,Data
	Data="../database/pRoom@Data.mdb"
	on error resume next
	set conn=server.CreateObject("adodb.connection")
    DBPath = Server.MapPath(Data)
    conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
	
	
    function CloseDB

    Conn.Close
    set Conn=Nothing

End Function
	
%>
<%
'response.write(Conn)

%>